home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / MIDI.ARC / LIST1.PAS next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  1.3 KB  |  50 lines
  1.  
  2. const
  3.   TIMING_OVERFLOW = 248;      { MPU-401 Constants }
  4.   NOP = 248;
  5.   MEASURE_END = 249;
  6.   DATA_END = 252;
  7.   MAX_TIMING_COUNT = 240;
  8.  
  9.   TIMEBASE = 120.0;          { MPU-401 Default Timebase }
  10.   TEMPO = 100.0;          { MPU-401 Default Tempo }
  11.              
  12.   MIN_MIDI_DATA = 0;          { Minimum MIDI Data Value }
  13.   MAX_MIDI_DATA = 127;          { Maximum MIDI Data Value }
  14.  
  15.   NOTE_OFF = 0;           { MIDI Commands }
  16.   NOTE_ON = 1;
  17.   AFTER_TOUCH_K = 2;
  18.   CONTROL_CHANGE = 3;
  19.   PROGRAM_CHANGE = 4;
  20.   AFTER_TOUCH_P = 5;
  21.   PITCH_WHEEL = 6;
  22.   SYSTEM_EXCLUSIVE = 7;
  23.  
  24.   MIDI_MESS_TEXT :          { MIDI Command Text Strings }
  25.     array[0..7] of string[20] =
  26.     ('Note Off',
  27.      'Note On',
  28.      'After Touch (key)',
  29.      'Control Change',
  30.      'Program Change',
  31.      'After Touch (poly)',
  32.      'Pitch Wheel',
  33.      'System Exclusive');
  34.  
  35.   ERR = -1;              { Function error flags }
  36.   NOERR = 0;
  37.  
  38.   TRACK_DATAFILE_SIZE = 4096; { MPU-401 track data file }
  39.  
  40.   FILENAME_LEN = 14;          { MSDOS filename length }
  41.   RECORD_LEN = 128;          { MSDOS record length }
  42.                   
  43.   DIGITS :              { Hex conversion digits }
  44.     array[0..15] of char =
  45.       '0123456789ABCDEF';
  46.  
  47. ord length }
  48.                   
  49.   DIGITS :              { Hex conversion digits }
  50.     array[0..15] of cha